home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD School House 9
/
CD School House 9.0 - Wayzata Technology (1994).iso
/
mac
/
MAC
/
School House
/
Misc.
/
RabbitLore™
/
background_3286.txt
< prev
next >
Wrap
Text File
|
1990-07-18
|
3KB
|
146 lines
-- background: 3286 from stack: in
-- bmap block id: 3548
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on openBackground
hide menubar
end openBackground
on closeBackground
show menubar
end closeBackground
-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=468 top=316 right=338 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
go next
end mouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=427 top=316 right=338 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
go prev
end mouseUp
-- part 6 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=0 top=19 right=342 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: about
----- HyperTalk script -----
on mouseUp
if the commandKey is down then
set lockText of me to not the lockText of me
exit mouseUp
end if
-- A script to 'fake' an information text block.
-- requires a topic list field and the text field.
-- click on a topic and the script will find it in the text field
-- and scroll it to the top.
-- Copyright ©1990 by David G. Davidson
set the lockText of me to false
click at the clickLoc
click at the clickLoc
Select the selectedLine
set the lockText of me to true
if the selection is empty then exit mouseUp
if the selection is "Show The Script" then -- show the script
click at 0,0 -- remove the selection RECT
edit the script of me
exit mouseUp
end if
if the selection is "Go Home" then
set cursor to watch
lock screen
set the scroll of me to 0
go last card
show cd fld "click"
unlock screen
wait until the mouse is down
hide cd fld "click"
go home
end if
lock screen -- find the info text
find whole selection &":" in field "Information"
click at 0,0 -- this erases the find RECT before the user can see it
unlock screen
end mouseUp
-- part 7 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=135 top=19 right=342 bottom=411
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Information
-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=411 top=34 right=150 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
show card field copyright
wait 2 seconds
hide card field copyright
-- go rabbits
end mouseUp